Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d19/dframe21.arc/DFRAME.INC

Text File | 1991-03-22 | 11.0 KB | 186 lines

DECLARE SUB BOX.IT (TROW%, LCOL%, BROW%, RCOL%, BOXTYPE%, BOXFG%, BOXBG%, FILLFG%, FILLBG%, FILLCHAR%, SHADOW%, TITLE$)
DECLARE SUB CLRSCRN ()
DECLARE SUB DE.LAY (BYVAL SECONDS AS INTEGER)
DECLARE SUB DETECT.ANSI ()
DECLARE SUB DIS.PLAY (MSG$, FGC%, BGC%, BLINK%, BELL%, XPOS%, YPOS%, NL%, CENTER%, Caps%)
DECLARE SUB ENTER ()
DECLARE SUB ERRORS (ERRNUM%, ERRLINE%)
DECLARE SUB EXIT.DOOR (YN$)
DECLARE SUB FindFirstF (FileName$, Attr%, ErrCode%)
DECLARE SUB FindNextF (ErrCode%)
DECLARE SUB GetNameF (FileName$, NameLen%)
DECLARE SUB INITIALIZE ()
DECLARE SUB IN.PUT (RLEN%, WAITTIME%, IFG%, IBG%)
DECLARE SUB KEYTIMER (KEYSTART!)
DECLARE SUB LINES (SROW%, SCOL%, LENGTH%, DIR$, ENDS%, MID%, EFG%, EBG%, MFG%, MBG%)
DECLARE SUB MAKE.BLT (HI.SCORE#)
DECLARE SUB MAKE.BLT.CURRENT (HI.SCORE#)
DECLARE SUB MORE ()
DECLARE SUB MUSIC (TUNE$)
DECLARE SUB OUT.PUT (LF%)
DECLARE SUB SEND (MSG$, YN%)
DECLARE SUB SHOW.BLT (YN$)
DECLARE FUNCTION EXISTS% (FileName AS STRING)

DECLARE SUB DelFile (FileName$, ErrCode%)
DECLARE FUNCTION DriveSpace& (Drive$)
DECLARE SUB GetDrv (Drive$)
DECLARE SUB GetExecPath (HomePath$, PathLen%)
DECLARE SUB GetKbd (Insert%, Caps%, NUM%, ScrollLock%)
DECLARE SUB GetKbd1 (LShift%, RShift%, Control%, Alt%)
DECLARE SUB GetSub (SubDir$, SubDirLen%)
DECLARE SUB GetSub1 (Drive$, SubDir$, SubDirLen%, ErrCode%)
DECLARE SUB Namecase (St$)
DECLARE SUB RInstr (MainSt$, SubSt$, Posn%)
DECLARE SUB SetError (BYVAL ErrorLevel%)
DECLARE SUB SetKbd (BYVAL Insert%, BYVAL Caps%, BYVAL NUM%, BYVAL ScrollLock%)
DECLARE SUB SubExist (SubDir$, IsThere%)

'NOTE: The following variables are not universally available.
'      Check DFRAME.DOC for variables available to each BBS system's file.

COMMON SHARED Age$                      'WWIV
COMMON SHARED Alias$                    'Caller's alias/handle
COMMON SHARED AllowedBytes#             'Allowed BYTES from the PCB PWRD file.
COMMON SHARED AlreadyConnected$         '"TRUE" or "FALSE"
COMMON SHARED AnsiOn$                   '"TRUE" or "FALSE"
COMMON SHARED AnsiSupport$              'Caller supports ANSI but in NG mode
COMMON SHARED BaudConn$                 'Connect rate of caller or "LOCAL"
COMMON SHARED BaudOpen$                 'Port opening BPS
COMMON SHARED BaudRate$                 'Baud and parity for DORINFO
                                        'Baud rate or 'KB' for WWIV
COMMON SHARED BBSColor%                 'BBS default color code (1-15)
COMMON SHARED BBSDir$                   'Spitfire's home directory
COMMON SHARED BBSSys$                   'Name of the BBS
COMMON SHARED BBSName$                  'WWIV
COMMON SHARED BirthDate$                'Caller's date of birth
COMMON SHARED BltPath$                  'Path of the high score bulletin.
COMMON SHARED CallAlarm%                'Caller alarm status.     -1=ON, 0=OFF
COMMON SHARED CallersLoc$               'Location of CALLERSx log
COMMON SHARED CallSign$                 'WWIV
COMMON SHARED ChatStatus$               'Chat mode status. "U" or "A"
COMMON SHARED City$                     'Caller's city and state
COMMON SHARED CNAMESLoc$                'Location of CNAMES
COMMON SHARED Columns$                  'WWIV
COMMON SHARED Comport%                  'COM port number
COMMON SHARED ConfReg$                  'Conference registration
COMMON SHARED Console$                  '"LOCAL" or "REMOTE"
COMMON SHARED Daily.Bytes.Alwd#         'Daily download max. K limit
COMMON SHARED DailyDnldBytes&           'Bytes downloaded so far today.
COMMON SHARED DataBits$                 '7 OR 8
COMMON SHARED DataDir$                  'WWIV
COMMON SHARED DeleteFlag%               '1 = delete this record, 0 = keep
COMMON SHARED Display%                  'Local display status.    -1=ON, 0=OFF
COMMON SHARED DLPerDay%                 'Number of downloads allowed per day
COMMON SHARED DLToday%                  'Number of downloads made today
COMMON SHARED DoorNumber$               '
COMMON SHARED Doors.Opened%             'Number of Doors he has opened
COMMON SHARED DoorSys%                  '1 = using DOOR.SYS, 0 otherwise
COMMON SHARED DorInfo%                  '1 = using DORINFx.DEF, 0 otherwise
COMMON SHARED DorInfo13th$              '13th line for RBBS DORINFO
COMMON SHARED Downloads%                'Number of downloads made
COMMON SHARED ECC%                      'Error corrected connect.  1=YES, 0=NO
COMMON SHARED EnterDoor$                'Time caller entered the door
COMMON SHARED Event$                    'Event time (hh:mm)
COMMON SHARED ExeName$                  'Name of .EXE (Programmer supplied)
COMMON SHARED Expert$                   'Expert mode - "Y" or "N"
COMMON SHARED Expire$                   'Caller's expiration date
COMMON SHARED ExpiredLevel&             'Expired Security level
COMMON SHARED ExtraTime&                'Number of seconds gained since logon
COMMON SHARED First$                    'Caller's first name
COMMON SHARED FrontEnd$                 '"TRUE" or "FALSE" if booted from a
                                        'front end program.
COMMON SHARED GfilesDir$                'WWIV
COMMON SHARED Gold$                     'WWIV
COMMON SHARED Graphics%                 'Graphics mode status.    -1=ON, 0=OFF
COMMON SHARED HPhone$                   'Caller's home phone number
COMMON SHARED LastConf%                 'Conference number last in.
COMMON SHARED LastFArea$                'Last file area
COMMON SHARED LastMConf$                'Last message conference
COMMON SHARED LastMsg$                  'Last message read
COMMON SHARED LastOn$                   'Date caller last logged on (MM-DD-YY)
COMMON SHARED LastOnDate$               'Date and time of last call
COMMON SHARED LastScan$                 'Date of last directory/new files scan
COMMON SHARED LastTimeOn$               'Last time caller was on
COMMON SHARED Level&                    'Caller's security level
COMMON SHARED LocalUsr%                 '-1 = LOCAL mode, 0 = Online
COMMON SHARED Log$                      'WWIV
COMMON SHARED LogonHrs$                 'Time caller logged on in HH:MM format
COMMON SHARED LogonMins%                'Time caller logged on in minutes
COMMON SHARED LogonSecs&                'Number of seconds since midnight
                                        'when caller logged on to the BBS.
COMMON SHARED LogonTimeDate$            'Date and time of this call
COMMON SHARED MaxBaud$                  'Maximum baud of the system
COMMON SHARED Max.Files%                'Maximum daily files available
COMMON SHARED MinsCredit%               'Time credits in minutes
COMMON SHARED MNP$                      '"MNP/ARQ Connection" or
                                        '"Normal Connection"
COMMON SHARED Mode%                     '0 = Non-color, -1 = color is on
COMMON SHARED Msgs.Left%                'Total messages left
COMMON SHARED Msgs.Read%                'Total messages read
COMMON SHARED Name$                     'Caller's full name
COMMON SHARED Network%                  '1 = BBS is networked, 0 = no network
COMMON SHARED Network$                  'DORINFO network type
COMMON SHARED NodeNum%                  'Node number
COMMON SHARED NoDTELock$                '"TRUE" or "FALSE" if configured for
                                        'software data flow control.
COMMON SHARED Num.Dl.Today%             'Files downloaded so far today
COMMON SHARED Owner$                    'DoorFrame registered owners name.
COMMON SHARED PageBell%                 'Page bell status.        -1=ON, 0=OFF
COMMON SHARED PageLen%                  'Caller's page length
COMMON SHARED Parity%                   'Parity (word length?) (7 or 8)
COMMON SHARED Parity$                   'WWIV
COMMON SHARED Password$                 'Password of caller
COMMON SHARED PathGen$                  'Path to the GEN directory
COMMON SHARED PathMain$                 'Path to the MAIN directory
COMMON SHARED PCBDat$                   'Location of PCBOARD.DAT
COMMON SHARED PCBoard%                  '1 = PCBoard, 0 = non-PCBoard
COMMON SHARED PCB.Version%              'PCBoard version number (i.e. 1450)
COMMON SHARED Printer%                  'Printer status.          -1=ON, 0=OFF
COMMON SHARED ProgName$                 'Name of DOOR (Programmer supplied)
COMMON SHARED Protocol$                 'Caller's default protocol (Z, X, etc)
COMMON SHARED Response$                 'Returned after a CALL to IN.PUT
COMMON SHARED Seconds&                  'Number of seconds since midnight
                                        'when caller entered the door.
COMMON SHARED Serial$
COMMON SHARED Sex$                      'WWIV
COMMON SHARED Spitfire%                 '1 = using SFDOORS.DAT, 0 otherwise
COMMON SHARED SysLoc$
COMMON SHARED SysOp%                    '1 = SYSOP is using DOOR, 0 otherwise
COMMON SHARED Sysop$                    'WWIV
COMMON SHARED SysOpFirst$               'Sysop's first name
COMMON SHARED SysOpFlag$                '" ", "N"=Sysop Next, "X"=Exit to DOS
COMMON SHARED SysOpLast$                'Sysop's last name
COMMON SHARED SysOpName$                'Sysop's first and last names
COMMON SHARED SysOpNext$                '"TRUE" or "FALSE"
COMMON SHARED TimeAdjust%               'Use to adjust the callers time
                                        'remaining online (in minutes).
COMMON SHARED TimeAlwd%                 'Minutes caller is allowed
COMMON SHARED TimeLastCall$             'Time of last call (hh:mm)
COMMON SHARED TimeLeft%                 'Time caller has left in minutes
COMMON SHARED TimeNow%                  'Current time in minutes
COMMON SHARED TimeOff$                  'Time caller exited the door
COMMON SHARED TimeOut%                  'Keyboard timeout - defaults to 5 mins
COMMON SHARED TimesOn%                  'Number of times on system
COMMON SHARED TimeUsed%                 'Time used so far today in minutes
COMMON SHARED Total.Bytes.Alwd#         'Max. bytes allowed
COMMON SHARED Total.Bytes.Today#        'Daily download K total
COMMON SHARED Total.KB.Dl#              'Total K bytes downloaded
COMMON SHARED Total.KB.Ul#              'Total K bytes uploaded
COMMON SHARED TotDnldBytes&             'Total number of BYTES downloaded
COMMON SHARED TotUpldBytes&             'Total number of BYTES uploaded
COMMON SHARED Uploads%                  'Number of uploads made
COMMON SHARED UserComment$              'User maintained comment
COMMON SHARED UserNum%                  'Record number of caller
COMMON SHARED UsersLoc$                 'Location of PCBOARD USERS file
COMMON SHARED UsrSys%                   '1 = using USERS.SYS, 0 otherwise
COMMON SHARED Version$                  'DOOR version # (Programmer supplied)
COMMON SHARED WildCat%                  '1 = using CALLINFO.BBS, 0 otherwise
COMMON SHARED WPhone$                   'Caller's work phone number
COMMON SHARED WWIV%                     '1 = using CHAIN.TXT, 0 otherwise

CONST BLACK = 0, BLUE = 1, GREEN = 2, CYAN = 3, RED = 4, MAGENTA = 5
CONST YELLOW = 6, WHITE = 7, GRAY = 8, LBLUE = 9, LGREEN = 10, LCYAN = 11
CONST LRED = 12, LMAGENTA = 13, LYELLOW = 14, LWHITE = 15